home *** CD-ROM | disk | FTP | other *** search
/ Aminet 46 / Aminet 46 (2001)(GTI - Schatztruhe)[!][Dec 2001].iso / Aminet / text / edit / edt10src.lha / txt / EdtOS37.mod < prev    next >
Text File  |  1995-03-19  |  792b  |  39 lines
  1. (*
  2.   .name       EdtOS37
  3.   .task       support-library for systems running OS 2.04 (interface)
  4.   .release    1.0
  5.   .language   Oberon-2
  6.   .translator Amiga Oberon 3.2
  7.   .system     AmigaOS 2.04/2.1/3.0
  8.   .author     J. Barheine
  9.   .address    Hochgrevestr. 3
  10.   .copyright  38640 Goslar
  11. *)
  12.  
  13. (* .info: 28/02/95, 19:35:05, version 2 *)
  14.  
  15. MODULE EdtOS37;
  16.  
  17. IMPORT
  18.   Exec,
  19.   Intuition,
  20.   K:= Kernel;
  21.  
  22. VAR
  23.   base- : Exec.LibraryPtr;
  24.  
  25. PROCEDURE ReqScreen* {base, -30} (w{8}: Intuition.WindowPtr;
  26.                                   VAR mode{1}: LONGINT;
  27.                                   VAR depth{2}: INTEGER): BOOLEAN;
  28.  
  29. BEGIN
  30.   IF K.aslVer < 38 THEN
  31.     base:= Exec.OpenLibrary("edt_os37.library", 1);
  32.   ELSE
  33.     base:= NIL;
  34.   END;
  35.  
  36. CLOSE
  37.   IF base # NIL THEN Exec.CloseLibrary(base) END;
  38. END EdtOS37.
  39.